5 PRINT CHR$(147)"   CASSETTE BEEPER":PRINT
10 EM=PEEK(56)*256+PEEK(55)-60
15 PT=EM:GOSUB100
20 POKE51,LB:POKE55,LB
25 POKE52,HB:POKE56,HB
30 PRINT:PRINT"SYS "EM:PRINT"(TO RESET POINTERS)"
35 PT=PT+21
40 FORX=1TO7STEP2:GOSUB100:B(X)=LB:B(X+1)=HB
45 PT=PT+3:NEXT X
50 FORX=EMTOEM+57
55 READN:IFN<0THENN=B(N*-1)
60 POKEX,N:NEXT X:PRINT:PRINT
65 SYS EM:SYSB(3)+B(4)*256:NEW
75 DATA 169,-1,141,48,3,169,-2,141,49,3,169,-5,141,50,3,169,-6
80 DATA 141,51,3,96,32,73,245,76,-7,-8,32,133,246,8,72,169,15
85 DATA 141,14,144,169,240,141,12,144,165,162,105,250,197,162
90 DATA 48,252,169,0,141,12,144,104,40,96
100 HB=INT(PT/256):LB=PT - HB*256:RETURN